Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.2r/background_3091.txt

Text File | 1989-02-26 | 2KB | 85 lines

-- background: 3091 from stack: in.2r
-- bmap block id: 0
-- flags: 4000
-- background id: 0
-- name: Home Card
----- HyperTalk script -----
on opencard
  hide menubar
  set the name of button id 63 to "Menus On"
  put the size of this stack into card field "StackSize"
  put the freesize of this stack into card field "Wasted"
end opencard


on listButton ListName
  if the short name of the target is "Show List" then
    set name of target to "Hide List"
    set visible of card field ListName to true
  else
    set name of target to "Show List"
    set visible of card field ListName to false
  end if
end listButton

on controlbutton ref
  if the commandkey is down then
    visual dissolve to black
    visual dissolve
    go first card of background ref
    exit controlbutton
  end if

  set cursor to 4
  put sortitems(card field ref,false) into theList
  DoList "Card","Cancel",theList,one
  get the result
  if it is not empty then
    push this card
    visual scroll left to gray
    visual scroll right
    go card item 2 of it
  end if
end controlbutton


on domenu which
  if which is "New Card" or which is "Cut card" or which is "Delete Card" then
    beep 3
    exit domenu
  end if
  if which is "Protect Stack..." then
    beep 3
    answer "You don't want to do that!"
    exit domenu
  end if
  if which is "Delete Stack..." then
    play boing
    answer "You really don't want to do that!"
    exit domenu
  end if
  pass domenu
end domenu



-- part 1 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=184 top=23 right=49 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Developer Stack
----- HyperTalk script -----
on mouseUp




end mouseup